home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue58 / EasyWeb / Unit1.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2000-03-11  |  1.6 KB  |  56 lines
  1. unit Unit1;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, HTTPApp, WebCtrls;
  7.  
  8. type
  9.   TWebModule1 = class(TWebModule)
  10.     PageProducer1: TPageProducer;
  11.     WebRotatedLabel1: TWebRotatedLabel;
  12.     WebXYChart1: TWebXYChart;
  13.     procedure WebModule1RootAction(Sender: TObject; Request: TWebRequest;
  14.       Response: TWebResponse; var Handled: Boolean);
  15.     procedure WebModule1BackGroundAction(Sender: TObject;
  16.       Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
  17.     procedure WebModule1ChartAction(Sender: TObject; Request: TWebRequest;
  18.       Response: TWebResponse; var Handled: Boolean);
  19.   private
  20.     { Private declarations }
  21.   public
  22.     { Public declarations }
  23.   end;
  24.  
  25. var
  26.   WebModule1: TWebModule1;
  27.  
  28. implementation
  29.  
  30. {$R *.DFM}
  31.  
  32. procedure TWebModule1.WebModule1RootAction(Sender: TObject;
  33.   Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
  34. begin
  35.   Response.Content := PageProducer1.Content;
  36. end;
  37.  
  38. procedure TWebModule1.WebModule1BackGroundAction(Sender: TObject;
  39.   Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
  40. begin
  41.   Response.ContentType := WebRotatedLabel1.ContentType;
  42.   Response.ContentStream := WebRotatedLabel1.ContentAsStream;
  43. end;
  44.  
  45. procedure TWebModule1.WebModule1ChartAction(Sender: TObject;
  46.   Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
  47. var
  48.   i: integer;
  49. begin
  50.   for i := 0 to 9 do WebXYChart1.AddData(i, i*i);
  51.   Response.ContentType := WebXYChart1.ContentType;
  52.   Response.ContentStream := WebXYChart1.ContentAsStream;
  53. end;
  54.  
  55. end.
  56.